The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Guide.dxr/00018.ls

Text File | 1998-11-19 | 1.5 KB | 46 lines

global gqtvrinstance, objectpict, codelist, objfile, lightsprite, objnamesprite, objmarker

on InitPanoCallbacks
  if isqtvrmovie(gqtvrinstance) then
    qtvrsetrolloverhotspothandler(gqtvrinstance, "RolloverHotSpotHandler")
    qtvrsetmouseoverhandler(gqtvrinstance, "MouseOverHandler")
  end if
end

on rolloverhotspothandler pHotSpotID
  set newfile to getaProp(codelist, pHotSpotID)
  if (pHotSpotID <> 0) and not voidp(newfile) then
    set newfile to char 1 to 6 of newfile
    set objfile to newfile
    puppetSprite(objnamesprite, 1)
    set smallpict to "B" & newfile & "1"
    set objecttext to newfile
    if (the number of member smallpict > 0) and (the number of member objecttext > 0) then
      set the visible of sprite objectpict to 1
      set the visible of sprite lightsprite to 1
      set the visible of sprite objnamesprite to 1
      set the visible of sprite objmarker to 1
      swapmember(objectpict, smallpict, 1)
      swapmember(objnamesprite, objecttext)
      if the right of sprite objnamesprite > 640 then
        set the locH of sprite objnamesprite to the locH of sprite objnamesprite - 15
      end if
      updateStage()
    end if
  else
    qtvrexitmouseover(gqtvrinstance)
    set the visible of sprite objmarker to 0
    set the visible of sprite objectpict to 0
    puppetSprite(objnamesprite, 0)
    set the visible of sprite lightsprite to 0
  end if
end

on mouseoverhandler
  if isqtvrmovie(gqtvrinstance) then
    qtvrexitmouseover(gqtvrinstance)
    synchronizing()
    setsliderbymovietime()
  end if
end